Cream of the Crop 26/Cream of the Crop 26.iso/program/ussbc23.zip/DEMOS/RPDEMOFM.DFM/RPDEMOFM.txt

Text File | 1996-07-25 | 6KB | 246 lines

object fmDemo: TfmDemo
  Left = 84
  Top = 113
  Width = 640
  Height = 480
  Caption = 'Soft Sector Bar Code Demo'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  WindowState = wsMaximized
  OnCreate = FormCreate
  OnResize = FormResize
  TextHeight = 16
  object RPSSBarCode: TRPSSBarCode
    Left = 168
    Top = 32
    Width = 221
    Height = 69
    BarCodeType = bcCode39
    BarColor = clBlack
    BarWidth = 0.009999999776482582
    Data = 'SOFT SECTOR'
    WideBarRatio = 3.000000000000000000
    Color = clWhite
    Font.Color = clWindowText
    Font.Height = 14
    Font.Name = 'Courier New'
    Font.Style = []
  end
  object Panel: TPanel
    Left = 0
    Top = 272
    Width = 632
    Height = 149
    Align = alBottom
    BevelOuter = bvNone
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 13
      Top = 53
      Width = 86
      Height = 16
      Caption = 'Bar Code Type'
    end
    object Label2: TLabel
      Left = 281
      Top = 9
      Width = 58
      Height = 16
      Caption = 'Bar Width'
    end
    object Label3: TLabel
      Left = 281
      Top = 53
      Width = 63
      Height = 16
      Caption = 'Orientation'
    end
    object Label4: TLabel
      Left = 13
      Top = 9
      Width = 27
      Height = 16
      Caption = 'Data'
    end
    object Label5: TLabel
      Left = 389
      Top = 30
      Width = 38
      Height = 16
      Caption = 'inches'
    end
    object cbType: TComboBox
      Left = 13
      Top = 69
      Width = 252
      Height = 24
      Style = csDropDownList
      ItemHeight = 16
      Items.Strings = (
        'Code 128'
        'Code 39'
        'EAN-13'
        'Interleaved 2 of 5'
        'Postnet'
        'UPC-A')
      TabOrder = 4
    end
    object ckBearer: TCheckBox
      Left = 501
      Top = 67
      Width = 100
      Height = 22
      Caption = 'Bearer Bars?'
      TabOrder = 2
      OnClick = ckBearerClick
    end
    object ckReadable: TCheckBox
      Left = 464
      Top = 24
      Width = 169
      Height = 21
      Caption = 'Print Human Readable?'
      State = cbChecked
      TabOrder = 3
      OnClick = ckReadableClick
    end
    object cbOrientation: TComboBox
      Left = 281
      Top = 69
      Width = 193
      Height = 24
      Style = csDropDownList
      ItemHeight = 16
      Items.Strings = (
        'Left to Right'
        'Right To Left'
        'Top to Bottom'
        'Bottom to Top')
      TabOrder = 5
    end
    object edData: TEdit
      Left = 13
      Top = 24
      Width = 252
      Height = 24
      CharCase = ecUpperCase
      TabOrder = 0
      Text = 'SOFT SECTOR'
    end
    object btUpdate: TBitBtn
      Left = 13
      Top = 104
      Width = 140
      Height = 41
      Caption = '&Update Barcode'
      TabOrder = 6
      OnClick = btUpdateClick
      Style = bsNew
    end
    object btClose: TBitBtn
      Left = 520
      Top = 104
      Width = 101
      Height = 41
      TabOrder = 9
      Kind = bkClose
      Style = bsNew
    end
    object edWidth: TEdit
      Left = 281
      Top = 24
      Width = 104
      Height = 24
      TabOrder = 1
      Text = '0.010'
    end
    object btPrint: TBitBtn
      Left = 288
      Top = 104
      Width = 225
      Height = 41
      Caption = '&Print Barcode (using ReportPrinter)'
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      OnClick = btPrintClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        0003377777777777777308888888888888807F33333333333337088888888888
        88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
        8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
        8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
        33333337FFFF77333333333000000333333333377777733333330000}
      NumGlyphs = 2
      Style = bsNew
    end
    object btFont: TBitBtn
      Left = 166
      Top = 104
      Width = 115
      Height = 41
      Caption = 'Select &Font'
      TabOrder = 7
      OnClick = btFontClick
      NumGlyphs = 2
      Style = bsNew
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 421
    Width = 632
    Height = 32
    Align = alBottom
    BevelOuter = bvNone
    Caption =
      'Delphi Native Barcode Component - Copyright 1996 Soft Sector, In' +
      'c.  Call [phone] to order!'
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object FontDialog: TFontDialog
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 576
    Top = 8
  end
  object ReportPrinter1: TReportPrinter
    StatusFormat = 'Printing page %p'
    UnitsFactor = 1.000000000000000000
    Title = 'ReportPrinter Report'
    Orientation = poPortrait
    ScaleX = 100.000000000000000000
    ScaleY = 100.000000000000000000
    OnPrint = ReportPrinter1Print
    Left = 576
    Top = 40
  end
end